﻿Public Class SMSType

    Private dtTypes As New DataTable("Types")

    Public Sub New()
        Dim cValue As New DataColumn("Value", System.Type.GetType("System.String"))
        Dim cName As New DataColumn("Name", System.Type.GetType("System.String"))
        Dim cLength As New DataColumn("Length", System.Type.GetType("System.Int16"))
        Dim cSender As New DataColumn("Sender", System.Type.GetType("System.Boolean"))
        dtTypes.Columns.Add(cValue)
        dtTypes.Columns.Add(cName)
        dtTypes.Columns.Add(cLength)
        dtTypes.Columns.Add(cSender)
    End Sub

    Public Sub Add(ByVal Value As String, ByVal Name As String, ByVal Length As Integer, Optional ByVal Sender As Boolean = False)
        Dim r As DataRow = dtTypes.NewRow()
        r("Value") = Value
        r("Name") = Name
        r("Length") = Length
        r("Sender") = Sender
        dtTypes.Rows.Add(r)
    End Sub

    Public Function [Get]() As DataTable
        Return dtTypes
    End Function


End Class
